home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 29
/
Aminet 29 (1999)(Schatztruhe)[!][Feb 1999].iso
/
ArtEffect
/
ArtEffect_1.5_Classic
/
ArtEffect Install-Script.org
< prev
next >
Wrap
Text File
|
1999-01-15
|
18KB
|
587 lines
;*************************************************************************
;* ArtEffect Installer Version 1.x *
;* *
;* Installer Revision by Jürgen Haage *
;* ©1996-99 HAAGE & PARTNER Computer GmbH *
;* *
;* If you have any installer questions please let us know! *
;* *
;*************************************************************************
;
; $VER: ArtEffect V1.5 Install Version 1.2 (15 Jan 99)
(complete 0)
; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.
(set stw-version "1.5 Classic")
(set stw-date "(15 Jan 99)")
;====================================================================
; Initialisierungen
(set @default-dest "")
(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))
(set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
(set size-komplett 3000000)
;====================================================================
; Init (English)
(set #yeskey "Yes")
(set #nokey "No")
(set #wrongos "\n Sorry, you will need OS 3.0 or better!\n")
(set #welcome (cat "\nWelcome to the installation of \n\n"
"ArtEffect" stw-version " of "stw-date"\n\n"
"This script copies all the files of ArtEffect "
"and the BGUI-Library onto your hard disk "
"and adds an Assign.\n\n\n"
"© Copyright 1996-99 HAAGE & PARTNER Computer GmbH"))
(set #oldversion (cat "\n"
"There is another version of ArtEffect on your "
"hard disk!\n"
))
(set #oldversion_help (cat "\n"
"Please choose the old drawer to Update your \n"
"old version! "
))
(set #new "New installation")
(set #update "Update old version")
(set #remove "Deinstallation - deletes ArtEffect")
(set #chose_path (cat
"Please select a device or a drawer for your "
"installation of ArtEffect.\n\n"
"A new drawer named \"ArtEffect\" will be created "
"automatically!"
))
(set #chose_path_help (cat "\n"
"Select 'Show drives' to get an overview of all "
"devices.\n"
"Please select one of the devices on top of "
"the list.\n"
"Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0:\" "
"Do not use \"DF0:\", \"DF1:\", \"DF2:\", "
"\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
"\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"! \n\n"
"A new drawer named \"ArtEffect\" will be created "
"automatically!\n\n"
@askdir-help))
(set #auswahlhilfe (cat "\n"
"There is an old version of ArtEffect on your "
"hard disk !\n\n"
"Select \"Yes\" to overwrite the old files. "
"Otherwise select \"No\" !\n"
))
(set #wrk_justamoment (cat "\n"
"This will last some time !\n"
"Please stay tuned ...\n"
))
(set #wrk_guidecrunch (cat "\n"
"Unpacking files ...\n\n"
"ArtEffect - Image Processing & Natural Painting!\n\n"
#wrk_justamoment
))
(set #decrunch_error (cat "\n\n"
"Error while unpacking files!\n\n"
"Maybe there is not enough free space on your "
"hard disk or some files are protected from "
"deleting or writing!\n"
))
(set #prp-copy-lib
"Copying BGUI-LIBRARY\n")
(set #hlp-copy-lib
"BGUI-Library is needed by ArtEffect !")
(set #prp-insert-disk1 (cat "\n"
"\n\nPlease insert Disk 1 \"ArtEffect_Disk1\" "
"in any drive now!"
))
(set #prp-insert-disk2 (cat "\n"
"\n\nPlease insert Disk 2 \"ArtEffect_Disk2\" "
"in any drive now!"
))
(if (= @language "deutsch") (
(set #yeskey "Ja")
(set #nokey "Nein")
(set #wrongos "\n Sorry, dieses Paket benoetigt mind. OS 3.0.\n")
(set #welcome (cat "\nWillkommen bei der Installation von \n\n"
"ArtEffect" stw-version " vom "stw-date"\n\n"
"Dieses Skript entpackt ArtEffect, kopiert "
"die BGUI-Library auf Ihre Festplatte "
"und erzeugt einen Assign.\n\n\n"
"© Copyright 1996-99 HAAGE & PARTNER Computer GmbH"))
(set #oldversion (cat "\n"
"Auf Ihrer Festplatte befindet sich bereits "
"eine Installation von ArtEffect!\n"
))
(set #oldversion_help (cat "\n"
"Wählen Sie einfach die bereits vorhandene "
"Schublade an, wenn Sie ihr altes System "
"aktualisieren möchten!"
))
(set #new "Neu installieren")
(set #update "Update über bisherige Version installieren")
(set #remove "Deinstallation - ArtEffect entfernen")
(set #chose_path (cat
"Auswahl des Pfades für die Installation.\n"
"Bitte wählen Sie ein Laufwerk oder ein Verzeichnis!\n"
"Eine Schublade \"ArtEffect\" wird automatisch erzeugt. "
))
(set #chose_path_help (cat "\n"
"Sie können über das Symbol 'Laufwerke anz.' "
"(bzw. 'Show drives') eine Übersicht über alle "
"Laufwerke Ihres Amiga anfordern; aus dieser "
"Übersicht sollten Sie nur die oberen, nicht "
"farblich gekennzeichneten Einträge auswählen. \n"
"Typische sinnvolle Namen sind z.B. \"WORK:\", "
"\"HD0:\" oder \"DH0:\" nicht verwenden sollten "
"Sie Namen wie \"DF0:\", \"DF1:\", \"DF2:\", "
"\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
"\"WB_2.x:\", \"System3.0:\" oder \"WB_3.x:\"! \n\n"
"ArtEffect kann nur in eine Schublade nicht aber "
"auf eine Partition direkt installiert werden! \n"
"Wenn Sie also nur ein Laufwerk für die "
"Installation auswählen, wird Ihnen eine "
"Fehlermeldung angezeigt!\n\n"
@askdir-help))
(set #auswahlhilfe (cat "\n"
"Auf Ihrer Festplatte befindet sich bereits "
"eine Version der Datei die installiert werden "
"soll.\n\n"
"Wählen Sie \"Ja\", wenn Sie die alte Datei mit "
"der neuen überschreiben möchten. "
"Anderenfalls wählen Sie bitte \"Nein\"!\n"
))
(set #wrk_justamoment (cat "\n"
"Das dauert eine geraume Zeit.\n"
"Bitte haben Sie etwas Geduld!\n"
))
(set #wrk_guidecrunch (cat "\n"
"Entpacke die Dateien...\n\n"
"ArtEffect - Bildbearbeitung und natürliches Malen!\n\n"
#wrk_justamoment
))
(set #decrunch_error (cat "\n\n"
"Fehler beim Entpacken!\n\n"
"Stellen Sie bitte sicher, daß Ihre Festplatte "
"ausreichend Speicherkapazität hat, und, falls "
"die Dateien bereits vorhanden sind diese nicht "
"Lösch- oder Schreibgeschützt sind.\n"
))
(set #prp-copy-lib
"Kopiere die BGUI-LIBRARY\n")
(set #hlp-copy-lib
"Ohne die aktuelle Version der BGUI-Library, funktioniert nichts!")
(set #prp-insert-disk1 (cat "\n"
"\n\nBitte legen Sie nun die Diskette 1 \"ArtEffect_Disk1\" "
"in ein beliebiges Laufwerk ein!"
))
(set #prp-insert-disk2 (cat "\n"
"\n\nBitte legen Sie nun die Diskette 2 \"ArtEffect_Disk2\" "
"in ein beliebiges Laufwerk ein!"
))
))
; ----------------------------- Prozeduren ------------------------------
(Procedure Make_Folder
(
(set folder (tackon folder "ArtEffect"))
(if (= (exists folder) 0)
(
(makedir folder (infos))
)
(
(set update 1) ; // Doch schon vorhanden!
)
)
)
)
; // Die Pfadnamen der einzelnen Quell-Dateien.
(set source-more "C/More")
(set source-lhx "C/LHex")
(set source-Guide "Readme")
(if (= @language "deutsch") (
(set source-Guide "LIESMICH")
))
(set archive-ArtEffect1 "ARTEFFECT1.LHA")
(set archive-ArtEffect2 "ARTEFFECT2.LHA")
(set archive-ArtEffectBrushes "Brushes.English.Lha")
;=====================================================================================
; Beginn der Installation
;=====================================================================================
; // needs OS 3.0 !!!
(if (< (/ (getversion) 65536) 39)
(
(message #wrongos)
(exit (quiet))
)
)
; Intro
(message #welcome)
(welcome)
(complete 5)
; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
(set update 0)
(set act-user-level @user-level)
(user 1)
(set folder "WORK:")
(if (<> update 0) ; // altes Assign benutzen wenn update oder remove
(
(set folder (getassign "ArtEffect"))
)
)
(user act-user-level)
(if (= update 0)
(
(set ok 0)
(while (not ok)
(set folder
(askdir
(prompt #chose_path)
(help #chose_path_help) ; // Auswahl Hilfetext
(default folder)
(disk)
)
)
(Make_Folder) ; // Automatisch neues Verzeichnis anlegen!
(set #dir_error (cat "\n"
"Your selection \"" folder "\" is not a valid device or drawer!\n\n"
"Select 'Show drives' to get an overview of all "
"devices available on your Amiga.\n"
"Please select one of the devices on top of the list.\n"
"Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\" "
"Do not use \"DF0:\", \"DF1:\", \"DF2:\", "
"\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\", "
"\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
))
(set #memory_error (cat "\n"
"There is not enough free disk space at the "
"device you have selected for the installation.\n\n"
"Free diskspace " freediskspace "!\n"
"Diskspace needed " size-komplett "!\n\n"
"Please select a another device or harddisk!"
))
(if (= @language "deutsch") (
(set #dir_error (cat "\n"
"Bei Ihrer Auswahl \"" folder "\" handelt es "
"sich nicht um eine gültige Schublade!\n\n"
"Sie können über das Symbol 'Laufwerke anz.' "
"(bzw. 'Show drives') eine Übersicht über alle "
"Laufwerke Ihres Amiga anfordern; aus dieser "
"Übersicht sollten Sie nur die oberen, nicht "
"farblich gekennzeichneten Einträge auswählen. \n"
"Über den Schalter \"Neue Schublade anlegen..\" "
"können Sie ein neue Schublade erzeugen. Diese "
"neue Schublade wird auf der Partition "
"angelegt, die Sie soeben betrachten."
))
(set #memory_error (cat "\n"
"Auf der ausgewählten Festplattenpartition "
"steht nicht genügend freier Speicher für die "
"komplette Installation des Compilersystems zur "
"Verfügung.\n\n"
"Freier Speicher " freediskspace "!\n"
"Benötigter Speicher " size-komplett "!\n\n"
"Bitte wählen Sie eine andere Partition, auf "
"der entsprechende Kapazitäten vorhanden sind!"
))
))
; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
; // kann die Auswahl-Schleife beendet werden.
(if (or (or (or (<= (strlen folder) 0) (= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
(message #dir_error) ; Fehler bei der Auswahl der Schublade
;else
(
(set freediskspace (getdiskspace folder)) ; // Der freie Speicher auf diesem Medium
(if (< freediskspace size-komplett)
(
(user 1)
(message #memory_error) ; // nicht genügend freier Speicher
)
;else
(set ok 1)
)
)
)
)
)
)
(makeassign "ArtEffect")
(user act-user-level)
; // Diskette 1 einlegen!
;(askdisk
; (prompt #prp-insert-disk1)
; (help #askdir-help)
; (dest "ArtEffect_Disk1")
;)
(complete 10)
; // Lhx wird in die RAM-Disk kopiert, damit das Programm nicht jedesmal von Disk
; // geladen werden muß.
(makeassign "ArtEffect")
(makeassign "ArtEffect" folder)
(copyfiles
(dest "RAM:")
(source source-lhx)
)
; // Handbuch auf Festplatte kopieren!
(copyfiles
(dest folder)
(source source-Guide)
(infos)
)
;(run "run Multiview ArtEffect:Liesmich")
;=================== Alle 1. ArtEffect-Dateien =====================================================
(complete 20)
; Bildverarbeitung entpacken
(makeassign "lhex_temp" folder)
(working #wrk_guidecrunch)
(set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-ArtEffect1))
(if ( <> COMPERROR 0)
(message #decrunch_error)
)
(complete 40)
(if (<> @language "deutsch") (
; Englishe Brushes entpacken
(makeassign "lhex_temp" folder)
(working #wrk_guidecrunch)
(set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-ArtEffectBrushes))
(if ( <> COMPERROR 0)
(message #decrunch_error)
)
))
(complete 50)
;==================================================================================
; // Diskette 2 einlegen!
;(askdisk
; (prompt #prp-insert-disk2)
; (help #askdir-help)
; (dest "ArtEffect_Disk2")
;)
;=================== Alle 2. ArtEffect-Dateien =====================================================
; Bildverarbeitung entpacken
(makeassign "lhex_temp" folder)
(working #wrk_guidecrunch)
(set COMPERROR (run "ram:lhex -qfw=lhex_temp: x " archive-ArtEffect2))
(if ( <> COMPERROR 0)
(message #decrunch_error)
)
;==================================================================================
(complete 80)
; BGUI.Library in die Libs-Schublade kopieren!
(set sourcelib (tackon folder "LIBS/BGUI.library"))
(copylib
(prompt #prp-copy-lib)
(help #hlp-copy-lib)
(source sourcelib)
(dest "LIBS:")
(confirm)
)
(complete 80)
(if (<> @language "deutsch") ( ; Falls english installiert wird!
(set sourcepict (tackon folder "Pictures/Apfel.jpg"))
(set destpict (tackon folder "Pictures/Apple.jpg"))
(if (= (exists sourcepict) 1)
(
(rename sourcepict destpict)
)
)
(set sourcepict (tackon folder "Pictures/Gemüse.jpg"))
(set destpict (tackon folder "Pictures/Vegetables.jpg"))
(if (= (exists sourcepict) 1)
(
(rename sourcepict destpict)
)
)
(set sourcepict (tackon folder "Pictures/DiaFilm.jpg"))
(set destpict (tackon folder "Pictures/FilmFrame.jpg"))
(if (= (exists sourcepict) 1)
(
(rename sourcepict destpict)
)
)
(set sourcepict (tackon folder "Pictures/Strand_320.jpg"))
(set destpict (tackon folder "Pictures/Beach_320.jpg"))
(if (= (exists sourcepict) 1)
(
(rename sourcepict destpict)
)
)
(set sourcepict (tackon folder "Pictures/Sommer96.jpg"))
(set destpict (tackon folder "Pictures/Summer96.jpg"))
(if (= (exists sourcepict) 1)
(
(rename sourcepict destpict)
)
)
))
(complete 95)
; ------- STARTUP ÄNDERN
(set command1 (cat "ASSIGN ArtEffect: " folder))
(set command1.txt
(cat "\n\n\nTo get ArtEffect work right there has to be made "
"some changes to your User-Startup !\n\n"
command1
)
)
(if (= @language "deutsch") (
(set command1.txt
(cat "\n\n\nUm mit ArtEffect richtig arbeiten zu können, muß "
"eine Änderung an der User-Startup vorgenommen werden.\n\n"
command1
)
)
))
(startup "ArtEffect"
(prompt command1.txt)
(help #help-startup)
(command command1)
)
(makeassign "ArtEffect")
;(makeassign "ArtEffect" (pathonly @icon))
(makeassign "ArtEffect" folder)
(delete "RAM:LHeX")
(complete 100)
; ------- FERTIG
(set #endnow (cat "Installation of ArtEffect completed.\n\n"
"When the line:\n\n" command1 "\n\n has not been added "
"to your User-Startup or Startup-Sequence, "
"please do that manually.\n\n"
"Best wishes...\n\n"
"HAAGE & PARTNER Computer GmbH, Germany"
))
(if (= @language "deutsch") (
(set #endnow (cat "\nInstallation von ArtEffect beendet.\n\n"
"Falls die Zeile:\n\n" command1 "\n\n nicht in Ihre User-Startup bzw. "
"Startup-Sequence eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
"\n\nWir wünschen ihnen viel Erfolg mit ArtEffect!\n\n"
"HAAGE & PARTNER Computer GmbH"
))
))
(message #endnow)